home *** CD-ROM | disk | FTP | other *** search
/ Curio City 11 / CURIO11.bin / pc / movie / namio / qz_mise.dir / 00034_WALKÇ÷ñÇÈ.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  504 b   |  22 lines
  1. on exitFrame
  2.   global pframen, pmarkn, gnowplacelist
  3.   sound stop 1
  4.   sound stop 2
  5.   set pstrt to getAt(gnowplacelist, 1)
  6.   set pdirc to getAt(gnowplacelist, 3)
  7.   case pstrt of
  8.     "X", "Y", "Z":
  9.       if (pdirc = 2) or (pdirc = 3) then
  10.         go(pframen + 3, "@.../walk/walk")
  11.       else
  12.         go(pmarkn, "walk")
  13.       end if
  14.     otherwise:
  15.       if (pdirc = 2) or (pdirc = 4) then
  16.         go(pframen + 3, "@.../walk/walk")
  17.       else
  18.         go(pmarkn, "@.../walk/walk")
  19.       end if
  20.   end case
  21. end
  22.